home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / end.dir / 00003_Exit App.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.6 KB  |  64 lines
  1. on realExitApp
  2.   global gSIUserFName, gSIXSuffix, gSIUtils, gSIEventQ, gSIFlush, gSISystem, gSIHDPath, gSICDPath, gSIBackground, gSIPPWrite, gSIPPReadInt, gSIMiscX, gSIWinHelp, gSIActiveWindow, gSIShowWindow, gSIGotoURL
  3.   go("Exit")
  4.   updateStage()
  5.   HSStatePut("opt", "Volume", string(GetVolume()))
  6.   cleanUp()
  7.   GSSave("awsome")
  8.   HSSave(gSIUserFName)
  9.   DVClose()
  10.   if gSISystem = "WIN" then
  11.     set vHWnd to gSIUtils(mGetNamedWindowHdl, "Stage")
  12.     gSIWinHelp(mCall, vHWnd, gSICDPath & "sihelp.hlp", 2, 0)
  13.   end if
  14.   if objectp(gSIUtils) then
  15.     gSIUtils(mdispose)
  16.   end if
  17.   EndBufferingEvents()
  18.   if objectp(gSIEventQ) then
  19.     gSIEventQ(mdispose)
  20.   end if
  21.   if objectp(gSIFlush) then
  22.     gSIFlush(mdispose)
  23.   end if
  24.   if objectp(gSIBackground) then
  25.     gSIBackground(mHide)
  26.     gSIBackground(mdispose)
  27.   end if
  28.   if objectp(gSIPPWrite) then
  29.     gSIPPWrite(mdispose)
  30.   end if
  31.   if objectp(gSIPPReadInt) then
  32.     gSIPPReadInt(mdispose)
  33.   end if
  34.   if objectp(gSIWinHelp) then
  35.     gSIWinHelp(mdispose)
  36.   end if
  37.   if objectp(gSIActiveWindow) then
  38.     gSIActiveWindow(mdispose)
  39.   end if
  40.   if objectp(gSIShowWindow) then
  41.     gSIShowWindow(mdispose)
  42.   end if
  43.   if objectp(gSIGotoURL) then
  44.     gSIGotoURL(mdispose)
  45.     closeXLib("siutils.dll")
  46.   end if
  47.   if objectp(gSIMiscX) then
  48.     gSIMiscX(mdispose)
  49.   end if
  50.   closeXLib("FILEIO" & gSIXSuffix)
  51.   closeXLib("MOVUTILS" & gSIXSuffix)
  52.   closeXLib("Misc_X" & gSIXSuffix)
  53.   if gSISystem = "WIN" then
  54.     closeXLib("EVENTQ" & gSIXSuffix)
  55.     closeXLib("DLLGLUE" & gSIXSuffix)
  56.   else
  57.     if gSISystem = "MAC" then
  58.       closeXLib("FlushXObj" & gSIXSuffix)
  59.       closeXLib("backdrop xobj" & gSIXSuffix)
  60.     end if
  61.   end if
  62.   quit()
  63. end
  64.